home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 4 / DOS131.dsk / SCREEN WRITE INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  689b  |  11 lines
  1. 100  HOME 
  2. 120 D$ =  CHR$(4)
  3. 200  FOR N = 1 TO 3: GOSUB 400: GOSUB 1000: IF A = 155  THEN 500
  4. 210  NEXT 
  5. 220  GOTO 500
  6. 400  PRINT  CHR$(4)"BLOAD SCR.WRI.INST."N: RETURN 
  7. 500  HOME : VTAB 8: HTAB 8: PRINT "LOADING ";: INVERSE : PRINT "SCREEN WRITE 2": NORMAL 
  8. 510  PRINT D$"BLOAD SCREEN WRITE 2.1": VTAB 13: PRINT "ENTER 'CALL 848' (CLEARS SCREEN)": PRINT : PRINT "   OR 'CALL 851' (DOESN'T CLEAR SCREEN)": PRINT : PRINT "TO EXECUTE SCREEN WRITE 2": PRINT D$"FP": END 
  9. 1000  VTAB 24: PRINT "HIT ";: INVERSE : PRINT "RETURN";: NORMAL : PRINT " TO CONTINUE, ";: INVERSE : PRINT "ESC";: NORMAL : PRINT " TO EXIT";
  10. 1010 A =  PEEK(49152): IF A <127  THEN 1010
  11. 1020  PRINT : POKE 49168,0: RETURN